home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / DESCQ.SC < prev    next >
Text File  |  1992-03-14  |  1KB  |  43 lines
  1. ;--------------DESCQ.SC
  2. STYLE ATTRIBUTE 30
  3. CLEAR
  4. STILLATIT=TRUE
  5. WHILE STILLATIT
  6.       CLEARALL
  7.       CLEAR
  8.       @ 12,2
  9.       ?? "ENTER DISK DESCRIPTION TO LOOK UP"
  10.       @ 14,2
  11.       ?? "OR JUST PRESS ENTER TO RETURN TO MENU  : "
  12.       ACCEPT "A40" TO LOOKUP
  13.       LOOKUP=UPPER(LOOKUP)
  14.       IF ISBLANK(LOOKUP) then
  15.           STYLE ATTRIBUTE 158
  16.           @ 24,10 CLEAR EOL
  17.           ?? "...RETURNING TO MENU.."
  18.           QUITLOOP
  19.       ENDIF
  20.       @ 24,1
  21.       ?? "SETTING POINTER TO " + LOOKUP
  22.       MENU{ASK}{FLOPPIES}CHECK
  23.       [DISK DESCRIPTION] = LOOKUP
  24.       DO_IT!
  25.       MENU{VIEW}{ANSWER}
  26.       IF (NRECORDS("ANSWER") = 0) THEN
  27.          BEEP
  28.          @ 24,1 CLEAR EOL
  29.          ?? "THERE IS NO " + LOOKUP + " LISTED"
  30.          SLEEP 5000
  31.          LOOP
  32.       ENDIF
  33.       MENU{TOOLS}{COPY}{JUSTFAMILY}{FLOPPIES}{ANSWER}{REPLACE}
  34.       EDITKEY
  35.       MENU{IMAGE}{PICKFORM}{F}
  36.       WAIT TABLE
  37.            PROMPT "PRESS F2 WHEN DONE"
  38.            UNTIL "F2"
  39.       DO_IT!
  40. ENDWHILE
  41. CLEAR
  42. RETURN
  43.